Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use warnings;

my $a = 'a,b,c,'; #line1
my $b = 'b'.",";   #line2
$a =~ s/$b//g;   #line3
print $a;

(my $a = 'a,b,c' ) =~ s/b\,//;
print $a

#!/usr/bin/perl
use strict;
use warnings;

(my $a = '1,2,3,4,5,6,7,' ) =~ s/`date +%u | tr -d '\n'`.","//g;

[root@ tmp]# cat 3.pl
#!/usr/bin/perl
use strict;
use warnings;

my $date = `date +%u | tr -d '\n'`.","; #line1
(my $a = '1,2,3,4,5,6,7,' ) =~ s/$date//g; #line2
print $a;

[root@ tmp]# ./3.pl
1,2,3,5,6,7,

my $date = (localtime)[6];