#! /usr/local/bin/perl $COMM = <) { s/^ *//; if(/^(http|memo):/) { if($DL =~ /./) { print "\n"; undef $DL; } print "
\n"; s/[ \t\r\n]*$//; print "
\n"; $DL = "in"; if(/^memo:/) { print "
めも\n"; } else { print "
${_}\n"; } print "
\n"; next; } { print; } } if($DL =~ /./) { print "
\n
\n"; undef $DL; } print_ato(); exit; sub print_mae { print < EEE } sub print_ato { print < EEE }