my $a = "abc";
my @b = $a =~ /.(?!a)/g; #comment this line to see the output
my $c = 'test';
$c =~ s///;
print $c