Select Code to Download

my $s = "foo1bar";

...
#my $p = "$ARGV[0]";   # doesn't work, prints "p is $2$1"

print "p is $p\n";

var1: foo       var2: bar
p is barfoo

var1: foo       var2: bar
p is $2$1

use strict;
use warnings;
...
  $code->($text);
  return $text;
}

[client1]
# PURPOSE: Convert YYYYMMDDhhmmss to MMDDYY.hhmmss
rename=s/(\d{2})(\d{2})(\d{4})(.*)/$3$2\.$4/

BEFORE: 201306051200foobar.dat
AFTER: 201306051200foobar.dat

BEFORE: 201306051200foobar.dat
AFTER: $3$2\.$4

BEFORE: 201306051200foobar.dat
AFTER: 060513.1200foobar.dat