Select Code to Download

my $line = 'abc clothes doing shopping at the .mall abc something doin
+g shopping at the .mallabc';
my ($before, $between, $after) = /(.*?.clothes|.something)(.*?)(\.mall
+.*)/;
print "Matched: '$before', '$after'\n";