my( $ref, $matches, $query ) = $read->padded_alignment;
#...^^

##</code><code>##

# V5: Inline::C
#!/opt/local/bin/perl