#!/usr/bin/perl
@searchstr = ("acha" , "porute" , "piipo");
@start = grep /^ac/, @searchstr;
@end = grep /po$/, @searchstr;
@start_ng = grep /^aca/, @searchstr;
print "Content-type:text/html\n\n";
print "<br>";
print "先頭文字が「ac」から開始 = @start<br>";
print "終了文字が「po」で終了 = @end$&t;br>";
print "指定した文字以外「aca」の場合 = @start_ng<br>";
●出力結果
先頭文字が「acha」から開始 = acha
終了文字が「po」で終了 = piipo
指定した文字以外の場合 =