while ($line =~ /pattern/g){
  # do something with $1 and $2
}