Select Code to Download

#!/usr/bin/perl
use strict;
...
$_ = '1 AC2 34 TRP A 6 ALA A 7 ILE A 14 GLY A 15';

print join "\n", /\S+(?: \S+){1,2}/g;