Select Code to Download

#!/usr/bin/perl -w
use strict;
 
...
@matches = /(\w+)/g;
print join('|', @matches), "\n";
# prints one|two|three|four|five