Select Code to Download

#!/usr/bin/perl
use Modern::Perl;

...
matched |cat| in $str4 (4 cat:dog) using regex without quantifier

=cut