perl -MData::Dumper -e 'print Dumper split /\s+/, shift' "do cat fr"