perl print double digit

$tapenum= sprintf("%02d",$tapenum);

AWK using file separator

c tmp.list | awk '{print $7}' | awk 'BEGIN { FS = "/" } ; { print substr($8,0,34) }' >tmp2.list