my $diffs = diff( .... ); for my $diff ( split ' ', $diffs ) { my( $start, $len ) = split ':', $diff; ## use start / len }