#  Without /g, it would be an endless loop for match will
#  always start at the start of $data.
while ( $data =~ m/$parse/g )
{
  my ( $auth , $text ) = ( "$1" , "$2" );
  ...
}