Help for this page

Select Code to Download


  1. or download this
    my @str  = map{ (split ' ', $_, 2)[0] } @{$tpl} ;