Help for this page
$/ = undef; ... }
$dtrx = qr/[Dd][Tt]=(\d{8}\.\d{6})/; $/ = undef; ... print "$ARGV\t $aa -- $z\n"; }