while (<>) { if (/^0010 0010/) { print $1 if m!([^/]+$)!; } }