Select Code to Download

use v5.12;
use warnings;
...
else {
    print "No match: \n";
}

spek@scelia ~/scratch $ perl format.pl
Matched|1000Wilma>0
The name that matched was Wilma