$_ = '1 2=3 4=5';
for my $up_to_3 (/(?:\W*\w+){1,3}/g) {
  print $up_to_3, "\n";
}