Regular Expression Perl

while(){
    s/(\w+)\s(\w+)/$2, $1/; # Reverse first and last names
    print;
}
__DATA__
    First Last