#!/usr/local/bin/perl -w
#Example 3
$longline = "123\nHello\n432\nGoodbye\n";
#@nums = $longline =~ /(\d+)./g;
@nums = $longline =~ /(\d+)./sg;
print "@nums\n";