phases1.pl

#!/usr/bin/perl

END   { print "$string\n" }
BEGIN { $string  = "w" }
CHECK { $string .= "e" }
INIT  { $string .= "n" }
CHECK { $string .= "d" }
END   { $string .= "t" }
CHECK { $string .= "k" }
BEGIN { $string .= "o" }
INIT  { $string .= "." }
INIT  { $string .= "n" }
END   { $string .= "e" }
BEGIN { $string .= "n" }