added two perl oneliners