in reply to Exit while loop on first match

last if $tb =~ /^\d+$/; ## FISH

[download]

In Section Seekers of Perl Wisdom