If you're using this code:

while(my $message = <FILE>) {
  print "$1: $2<br/>"
    if /^(Alberta226: )([a-zA-Z, 0-9])+/; # I added the +
}
[download]

you'll need to fix one little thing. The lines from FILE are being assigned to $message but the regex is matching against $_

So you could do this as

while(<FILE>) {
  print "$1: $2<br/>"
    if /^(Alberta226: )([a-zA-Z, 0-9])+/;
}
[download]

or

while(my $message = <FILE>) {
  print "$1: $2<br/>"
    if $message =~/^(Alberta226: )([a-zA-Z, 0-9])+/;
}
[download]