Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Swap the first two words in a string
#!/usr/bin/perl
use warnings;
use strict;
$_ = "Berkeley: LSD and UNIX";
s/(\w+)\s+(\w+)/$2 $1/;
print $_, "?\n";