$out = map { substr unpack('B8', $1), 1 } $string =~ /./g; [download]
In reply to Re^4: Convert ASCII string to 7-bit binary string by ikegami in thread Convert ASCII string to 7-bit binary string by Pascal666