Select Code to Download

#!/usr/bin/env perl 
use strict;
...
$t = $q;
$t =~ s/^.*$a//m;
isnt ($t, $want, "No /s - not matched");