校訓にタグ

koukun.pl

#!/usr/bin/perl
use 5.010;
my @t = qw/
校訓
　勤勉
　誠実
　謙虚/;

for(@t){
    chomp;
    if(/^　/){
        $_ =~ s/(.*)/<li>$1<\/li>/ ;
    }
    say;
    #$_ =~ /(.*),(.*)/;
    
}