use warnings; use strict; use Data::Dump::Streamer; my $str = <) { chomp; my ($start, $len) = split; my $segment; seek $recData, $start, 0; read $recData, $segment, $len; print "$segment\n"; } __DATA__ 16 12 80 9 315 10 #### encountering therefore separated