while ($_ = <DATA>)
{
    chomp $_;
    my @pairs = $_ =~ /(..)/g;
    ...