#!perl -p substr$_,()=/../g,0,$"