Select Code to Download

#!/usr/bin/perl

use strict;
...

print "Match: '$after' contains '$cur'\n"
    if ($after =~ /\Q$cur\E/);