perl basic

...

1,  extract all matched word from a single string, wo kao

#https://stackoverflow.com/questions/10507076/perl-pattern-matching-where-we-print-all-matching-parts-but-only-the-matching-p

#!/usr/bin/perl

my $content = 'toto /app/blah titi\nhuh/app/ttt wew';
@table = $content =~ m/(\/app\/[a-z]*)/g;
print "Group: @table\n";

my $hus = 'toto track1 titi track2 wew';
@hut = $hus =~ m/(track[0-9]*)/g;
print "Group: @hut\n";