while(<FILE>) {        ## assign $_ to readline *FILE
my $message = <FILE>;  ## assign my $message to readline *FILE

##</code><code>##

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