Select Code to Download

#! perl
use strict;
...
my $re = qr/(?<=module )$ARGV[2].*?([\\(;])/;

print YAPE::Regex::Explain->new($re)->explain();

15:40 >perl 566_SoPW.pl FILE OLD NEW
The regular expression:
...
----------------------------------------------------------------------

15:40 >