Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print $line;
__DATA__
s/abc(\w+)f/xxx$1x/;

xxxdex