#!/bin/sh
w3m -dump -cols 1000 "$1" | 
gawk '
/Service/{s=$1 $NF;}
(s=="BasicService" || s=="Expanded1" ) && /Fee:.*monthly/{
  for (i=1; i<= NF; i++)
    if ($i ~ /monthly/)
	  printf "%s\t%s\t", s, $(i-1);
}
END{  printf "\n"; }'