#!/perl/bin
use v5.14;
use warnings;

while (<>) {
    chomp;
    if (m/(?<WORD>\b\w*a\b)(?<EXTRA>.{0, 5})/) {	
	say "Word contains '$+{WORD}'";
	say "Extra characters after Word are '$+{EXTRA}'";
		
    } else {
	say "No Match: |$_|";
    }
}