Select Code to Download

use strict;
use warnings;
...

# Now you can use it:
print($str =~ $regexp ? 'match' : 'no match', "\n");