#!/usr/local/bin/perl -n

print unpack ('u', $_) if (/^begin / .. /^end$/);