Syntax HighlightのPerlサポートテスト

perlサポートのテスト

use strict;

my $text = "Apple";

while ($text =~ /(?:(A)|(p)|(l)|(e))/g) {
 if ($1) {
  print $1, "\n";
 }
 elsif ($2) {
  print $2, "\n";
 }
 elsif ($3) {
  print $3, "\n";
 }
 elsif ($4) {
  print $4, "\n";
 }
 else {
  warn;
 }
}