Select Code to Download

$q =~ s/^.*$a//sm;

$q =~ s/.*$a//s;

#!/usr/bin/env perl 
use strict;
...

$q =~ s/.*$a//s;
is ($q, $want, "With /s only and no anchor - matched");