if( $text{ '$DATATYPE' } eq 'I' and defined $text{ '$P1R' } ) {
    my $mask = $text{ '$P1R' } - 1;
    $_ &= $mask for @data;
}