program-id.y.data division.working-storage section. 1 s pic x(99). procedure division.a.accept s inspect s converting"$."to" *"if"#"<>s(7:)if"#"<>s(12:)if"#"<>s(4:)display function trim(s,trailing)go a.display s(1:3)s(3:).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).