#!perl -pla
$_=$F[-/./]-$'