while ($text =~ m|(.*?).*?(.*?)|sg) { print "Found job number $1 in location $2 \n"; }