Select Code to Download

use strict;
use warnings;
...
{
    print "\nNot matches regex";
}

Use of uninitialized value $_ in pattern match (m//) at wtf.pl line 6.