in reply to reg ex help
.... if(/^\d{4}: (\w\w ){13}(\w\w)(.*)$/) { # $_ of course my $number14 = $2; ....... } [download]
$session->expect(30, '-re', qr'REGEX'); [download]