Select Code to Download

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

print $f=~/(?=^[ABC]+$)/? "Matches [ABC] Combinations\n": "No pattern 
+found!\n";
print $s=~/(?=^[ABC]+$)/? "Matches [ABC] Combinations\n": "No pattern 
+found!\n";

#OUTPUT:
Matches [ABC] Combinations
No pattern found