#!/usr/bin/perl

while ( <DATA>) {
  ($a,$b) = split ' ';
  print "split '$a','$b'\n";
  my ($a,$b) = $_ =~ /(\S+)\s+(\S+)/;
  print "match '$a','$b'\n";
}

__DATA__
         none          bing 
         some          bong 
         any          bang