while # use a loop to grab all instances
(m| # use pipes to delimit, so no escaping /
(\d{5}) # > followed by 5 digits (remember digits)
.*? # minimal match of anything
>(\d{2}) # > followed by 2 digits (remember digits)
.*? # minimal match of anything
>(\d{3}) # > followed by 3 digits (remember digits)
.*? # minimal match of anything
>(\d{3}) # > followed by 3 digits (remember digits)
.*? # minimal match of anything
>(\d{2}) # > followed by 2 digits (remember digits)
.*? # minimal match of anything
( |\w) # or a letter
# followed by a closing font tag
|isxg) { # case (i)nsensitive, treat as (s)ingle line,
# e(x)tended comments, match (g)lobally (all)
my @row = ($1,$2,$3,$4,$5,$6);
# now do whatever with @row
}
# condensed
while(m|
(\d{5}).*?>(\d{2}).*?>(\d{3}).*?>(\d{3}).*?>(\d{2}).*?( |\w)|isg) {
my @row = ($1,$2,$3,$4,$5,$6);
}