Select Code to Download

use strict;
use warnings;
...
    ;

print $msg, "\n";

my $msg
    = /a.*b/i     ?  'The string has an a, and also a following b'
...
    :                'String did not match'
    ;