perl 정규표현식 질문 - 특정형식을 제외한 나머지 삭제

도움을 요청합니다.

첫번째 질문 :

이런 문제입니다.

라인안에 8GG 같은 형식으로 데이타가 들어있습니다.

불필요한 데이타를 없애려고 합니다.

데이타 형식은

[숫자1-2자리] , [.없거나 혹은 한개 또는 두개] , [영어a-g r A-Z 한개 혹은 여러개] , [- 또는 # 없거나 한개]

이런 식입니다. 즉

8AA , 16a , 4r , 4..r , 16aaa- , 8.AA#

이런 식의 데이타들입니다.

각 데이타는 스페이스나 탭, \n 개행문자로 분리되어 있습니다.

$line =~ s/([^(([\d])+[\.]*(([a-g r A-G])+)[#-]*)])//eg;

위의 라인은 제가 억지로 만들어본 것인데 역시 제대로 작동하지 않습니다. ^ 를 잘못 사용한 것 같고, 이런 식으로 써도 되는지도 모르겠습니다.

두번째 질문 : 펄 자체의 사용은 많지 않지만 텍스트 파일 처리를 해야 하는 일이 많아서 정규표현식을 좀 제대로 알아야겠다는 생각이 들었습니다. 정규표현식을 제대로 공부할 수 있는 책이나 사이트를 알려주시면 고맙겠습니다.