Select Code to Download

#!/usr/bin/perl
use strict;
...

__DATA__
alpha|beta|alpha|theta|alpha|gamma|alpha|episilon

match: beta
match: theta
match: gamma

#!/usr/bin/perl
use strict;
...

__DATA__
alpha|beta|alpha|theta|alpha|gamma|alpha|episilon