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