use strict;
use warnings;

my $text = 'axa bxb cxc dxd';

print "1 - \$1 = $1, \$2 = $2\n";

$text =~ m/(a\w*) (b\w*)/;

print "2 - \$1 = $1, \$2 = $2\n";

my $x = $2;

print "3 - \$1 = $1, \$2 = $2\n";

$x =~ s/,//g;

print "4 - \$1 = $1, \$2 = $2\n";

$x =~ s/x//g;

print "5 - \$1 = $1, \$2 = $2\n";